From d46dda39fdc47c79600c1b9e1ae7fe0481f18e73 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 8 May 2007 18:15:07 +0000 Subject: [PATCH] (sendmail-pre-abbrev-expand-hook): Don't include non-self-insert commands in the exception for `-'. --- lisp/mail/mailabbrev.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el index c62cba4822d..b83b3864cb4 100644 --- a/lisp/mail/mailabbrev.el +++ b/lisp/mail/mailabbrev.el @@ -494,6 +494,8 @@ of a mail alias. The value is set up, buffer-local, when first needed.") ;; the usual syntax table. (or (and (integerp last-command-char) + ;; Some commands such as M-> may want to expand first. + (equal this-command 'self-insert) (or (eq (char-syntax last-command-char) ?_) ;; Don't expand on @. (memq last-command-char '(?@ ?. ?% ?! ?_ ?-)))) -- 2.30.2